From 0e396c757aad27e338cc4bee92da847ace9f77a4 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 27 Apr 2004 12:44:42 +0000 Subject: [PATCH] (archive-maybe-copy): If ARCHIVE includes leading directories, make sure they exist under archive-tmpdir. --- lisp/arc-mode.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 7ac7a402c3a..2cb20b4545d 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -815,6 +815,14 @@ using `make-temp-file', and the generated name is returned." (or (and archive-subfile-mode (aref archive-subfile-mode 0)) archive))) (make-directory archive-tmpdir t) + ;; If ARCHIVE includes leading directories, make sure they + ;; exist under archive-tmpdir. + (let ((arch-dir (file-name-directory archive))) + (if arch-dir + (make-directory (concat + (file-name-as-directory archive-tmpdir) + arch-dir) + t))) (setq archive-local-name (archive-unique-fname archive-name archive-tmpdir)) (save-restriction -- 2.30.2